(view-register): Show register type file-query.

diff --git a/lisp/register.el b/lisp/register.el
index eb0aa8107c2dc7b2b38031c3f103034f0d61097a..0f9e5df36f561f840f581daf22b6e14db8e44e67 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -195,6 +195,13 @@ The Lisp value REGISTER is a character."
          (prin1 (cdr val))
          (princ "."))
 
+        ((and (consp val) (eq (car val) 'file-query))
+         (princ "a file-query reference:\nfile ")
+         (prin1 (car (cdr val)))
+         (princ ",\nposition ")
+         (princ (car (cdr (cdr val))))
+         (princ "."))
+
         ((consp val)
          (princ "the rectangle:\n")
          (while val